﻿
Imports System.Web
Imports System.Web.Configuration
Imports System.Data
Imports System.Data.SqlClient
Public Class RegistrarReserva
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Calendar1_SelectionChanged(ByVal sender As Object, ByVal e As EventArgs) Handles Calendar1.SelectionChanged
        TextBox1.Text = Calendar1.SelectedDate
    End Sub

    Private Sub DropDownList1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList1.Load
        If Not IsPostBack Then
            DropDownList1.Items.Add("Reservar en Horario")
            DropDownList1.Items.Add("")
            DropDownList1.Items.Add("ALMUERZO")
            DropDownList1.Items.Add("12:00")
            DropDownList1.Items.Add("12:30")
            DropDownList1.Items.Add("13:00")
            DropDownList1.Items.Add("13:30")
            DropDownList1.Items.Add("14:00")
            DropDownList1.Items.Add("14:30")
            DropDownList1.Items.Add("15:00")
            DropDownList1.Items.Add("")

            DropDownList1.Items.Add("CENA")

            DropDownList1.Items.Add("20:00")
            DropDownList1.Items.Add("20:30")
            DropDownList1.Items.Add("21:00")
            DropDownList1.Items.Add("21:30")
            DropDownList1.Items.Add("22:00")
            DropDownList1.Items.Add("22:30")
            DropDownList1.Items.Add("23:00")

        End If
    End Sub

    Private Sub DropDownList2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles DropDownList2.Load
        If Not IsPostBack Then
            DropDownList2.Items.Add("Cantidad de Personas")
            DropDownList2.Items.Add(1)
            DropDownList2.Items.Add(2)
            DropDownList2.Items.Add(3)
            DropDownList2.Items.Add(4)
            DropDownList2.Items.Add(5)
            DropDownList2.Items.Add(6)
            DropDownList2.Items.Add(7)
            DropDownList2.Items.Add(8)
        End If
    End Sub

  

End Class